8 PRINT"HOMMAGE TO BEJAHFISCH V3...":FORG=1TO1000:NEXT
10 PRINT"[147]"CHR$(8):POKE53280,14:POKE53281,14
11 GOSUB100:GOSUB500:POKE211,24:POKE214,1:SYS58732
12 PRINT"WHAT'S THAT ???":FORG=.TO500:NEXT:GOSUB200:GOSUB500:FORG=.TO500
13 NEXT:POKE211,16:POKE214,3:SYS58732:PRINT"OH,NO ! IT REALLY IS..."
14 GOSUB300:GOSUB500:POKE211,13:POKE214,5:SYS58732:FORG=.TO500:NEXT
15 PRINT"THE ALLMIGHTY BEJAHFISCH !":GOSUB400:GOSUB500
16 FORG=1TO100:X=INT(RND(.)*10):Y=INT(RND(.)*8):Q=INT(RND(.)*13)
17 POKE55296+Y*40+X,Q:NEXT
18 FORG=26TO11STEP-1:POKE211,G:POKE214,1:SYS58732:PRINT" [157] [157] [157] [157] [157] [157] [157]
19 [129]Q[178]1[164]30:[130]Q,G:[129]G[178]4[164]1[169][171]1:[151]211,26:[151]214,G:[158]58732
20 [153]"             ":[129]Q[178]1[164]30:[130]Q,G:Q(1)[178]1:Q(2)[178]13:Q(3)[178]15:Q(4)[178]12
21 Q(5)[178]11:Q(6)[178]6:Q(7)[178]14:[129]G[178]1[164]7:[151]646,Q(G):[151]211,38:[151]214,5:[158]58732
22 [153]"!":[129]Q[178]1[164]30:[130]Q,G
23 A$[178]"BEJAHFISCH ":[129]G[178]27[164]9[169][171]1:[151]211,G:[151]214,5:[158]58732:[153]""A$
24 [129]Q[178]1[164]30:[130]Q,G:[129]G[178]1[164]6:[151]646,Q(G):[151]211,20:[151]214,5:[158]58732
25 [153]"RULEZ !":[129]Q[178]1[164]30:[130]Q,G:[129]G[178].[164]5000:[130]:[158]64738
99 [128]
100 A$(0)[178]"         "
101 A$(1)[178]"         "
102 A$(2)[178]"   (null)(null)    "
103 A$(3)[178]"         "
104 A$(4)[178]"         "
105 A$(5)[178]"         "
106 [142]
200 A$(0)[178]"         "
201 A$(1)[178]"    (null)    "
202 A$(2)[178]"  (null)(null)(null)(null)   "
203 A$(3)[178]"    (null)    "
204 A$(4)[178]"         "
205 A$(5)[178]"         "
206 [142]
300 A$(0)[178]"   (null)(null)    "
301 A$(1)[178]" (null)(null)(null)(null)(null)(null)  "
302 A$(2)[178]"(null)(null)(null)(null)(null)(null)(null)  "
303 A$(3)[178]" (null)(null)(null)(null)(null)   "
304 A$(4)[178]"   (null)(null)    "
305 A$(5)[178]"         "
306 [142]
400 A$(0)[178]"(null)  (null)(null)(null)   "
401 A$(1)[178]"(null)(null)(null)(null)(null)(null)(null)(null) "
402 A$(2)[178]"(null)(null)(null)(null)(null)(null)(null)(null) "
403 A$(3)[178]"(null) (null)(null)(null)(null)(null)  "
404 A$(4)[178]"(null)   (null)(null)   "
405 A$(5)[178]"         "
406 [142]
500 [153]"":[129]G[178].[164]5:[153]" "A$(G):[130]:[142]